# Replication archive for:
# Galos and Coppock. 2023. 
# Gender Composition Predicts Gender Bias: A Meta-reanalysis of Hiring Discrimination Audit Experiments. 
# Science Advances. Forthcoming.

library(tidyverse)

evidence_map <- read_rds("data/evidence_map.rds")

g <-
  ggplot(evidence_map)  +
  aes(x = year, y = country, fill = present) +
  geom_hline(
    data = filter(evidence_map, present == 1),
    aes(yintercept = country),
    alpha = 0.5,
    linetype = "dotted",
    size = 0.2
  ) +
  geom_tile() +
  theme_minimal() +
  scale_fill_manual(values = c("transparent", "black")) +
  facet_grid(rows = vars(continent), scales = "free_y", space = "free") +
  theme(
    panel.grid = element_blank(),
    axis.text.y = element_text(size = 3),
    axis.title = element_blank(),
    legend.position = "none",
    strip.background = element_blank(),
    strip.text = element_text(size = 7),
  )

g



